home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / netz / mailfilter / microdot / headerfilter.mdmrexx < prev    next >
Text File  |  1994-07-16  |  2KB  |  110 lines
  1. /* Arexx-Script für MicroDot und MailFilter */
  2.  
  3. /*
  4. ** $VER: Headerfilter.mdmrexx 1.1 (16.7.94)
  5. **
  6. ** Übernimmt eine Headerzeile aus der aktuellen Mail in den Headerfilter,
  7. ** Wenn die Headerzeile länger als 80 Zeichen ist wird ihr ein '#?' oder
  8. ** '*' angehängt. In der Headerzeile vorkommende Jokerzeichen werden durch
  9. ** Voranstellen eines Hochkommas ausgeschaltet. Nach erfolgreicher Übernahme
  10. ** in den Filter öffnet sich das Fenster und der gerade übernommene Eintrag
  11. ** ist selektiert.
  12. **
  13. ** Headerfilter.mdmrexx muß nach 'MicroDot/Rexx' kopiert werden
  14. */
  15.  
  16. /* Ergebnisse anfordern */
  17.  
  18. OPTIONS RESULTS
  19.  
  20.  
  21.  
  22. /* Name des Screens auslesen */
  23.  
  24. GETMDPUBSCREENNAME
  25. screenname = result
  26.  
  27.  
  28.  
  29. /* Aktuelle Mail mit Header auslagern */
  30.  
  31. EXTRACTCURRENTMAIL 'T:Headerfilter-rexx.temp' HEADER
  32.  
  33. IF rc ~= 0 THEN
  34.    EXIT(10)
  35.  
  36.  
  37.  
  38. /* Testen, ob MailFilter gestartet ist. Wenn nicht, dann jetzt starten */
  39.  
  40. IF ~SHOW(PORTS,'MAILFILTER') THEN DO
  41.    ADDRESS COMMAND
  42.    'run >NIL: <NIL: MAILFILTER:MailFilter'
  43.  
  44.    DO 3 WHILE ~SHOW(PORTS,'MAILFILTER')
  45.       'WaitForPort MAILFILTER'
  46.    END
  47.  
  48.    IF rc = 5 THEN DO
  49.       SAY 'Kann MailFilter nicht starten!'
  50.       'Delete T:Headerfilter-rexx.temp QUIET'
  51.       EXIT(10)
  52.    END
  53. END
  54.  
  55.  
  56.  
  57. /* Aktuellen MicroDot-Screen einstellen */
  58.  
  59. ADDRESS MAILFILTER
  60.  
  61. GETATTR screen
  62.  
  63. IF result ~= screenname THEN DO
  64.    DEACTIVATE
  65.    SETATTR screen screenname
  66. END
  67.  
  68.  
  69.  
  70. /* Einen Header aus der Mail auswählen */
  71.  
  72. SELECTHEADER 'T:Headerfilter-rexx.temp'
  73.  
  74. IF rc ~= 0 THEN DO
  75.    ADDRESS COMMAND 'Delete T:Headerfilter-rexx.temp QUIET'
  76.    EXIT(0)
  77. END
  78.  
  79.  
  80.  
  81. /* Header in den Headerfilter übernehmen und das */
  82. /* Fenster auf dem aktuellen MicroDot-Screen öffnen */
  83.  
  84. headerzeile.pattern    = result
  85. headerzeile.emppattern = ''
  86. headerzeile.newsgroup  = ''
  87. headerzeile.mailtype   = ''
  88. headerzeile.action     = ''
  89.  
  90. ADDITEM TO header STEM headerzeile CONVERT POPUP
  91.  
  92.  
  93.  
  94. /* Prefs speichern */
  95.  
  96. IF rc = 0 THEN
  97.    SAVE
  98.  
  99.  
  100.  
  101. /* TempDatei löschen */
  102.  
  103. ADDRESS COMMAND 'Delete T:Headerfilter-rexx.temp QUIET'
  104.  
  105.  
  106.  
  107. /* Beenden */
  108.  
  109. EXIT(0)
  110.